This is a test of an RMarkdown document within the govuk-hugo theme.

# Comment
mtcars

Some more text

plot(mtcars$mpg, mtcars$disp)

Testing DT

DT::datatable(mtcars)

Testing plotly/ggplotly

p <- ggplot2::ggplot(mtcars, ggplot2::aes(x = mpg, y = disp)) +
  ggplot2::geom_point()

plotly::ggplotly(p)

Testing leaflet

m <- leaflet::leaflet()
m <- leaflet::addTiles(m)
m <- leaflet::addMarkers(m, lng = -0.12768, lat = 51.50739)
m